how to calculate sum of elements using prolog